100 V=0:N=0:NE$="":N$="":N2$="":V$="":V2$="":PR=0:PT=0:NM=0:BZ=0
101 FORX=1TO10:WD$(X)="":NEXT
102 INPUTA$:PT=1:NM=0:D$=A$
103 FORA=1TOLEN(D$)
104 IFMID$(D$,A,1)=" "THENA$=MID$(D$,PT,A-PT):PT=A+1:NM=NM+1:WD$(NM)=A$
105 NEXT:NM=NM+1:A$=MID$(D$,PT,A-PT):WD$(NM)=A$
106 V$=WD$(1):NE$=WD$(2)
107 IFWD$(3)="AND" ORWD$(3)="THEN"THENV2$=WD$(4):N2$=WD$(5):CO=1
108 IFWD$(3)="IN"ORWD$(3)="FROM"ORWD$(3)="TO"THENV$=WD$(1):NE$=WD$(2):PR=1:BZ=1
109 REM     ---------------------
110 V=0:FORX=1TO20:IFV$=VB$(X)THENV=X:X=30
111 NEXT:IFV=0THENPRINT"[215]HAT? [195]HECK YOUR VERB.":GOTO100
112 N=0:FORX=1TO299:IFNE$=NO$(X)THENN=X:X=299
113 NEXT:IFN=0THENPRINT"[200]UH? [195]HECK YOUR NOUN.":GOTO100
114 ON V GOSUB120,130,140,150,160,170,180,190,200,210
115 IFCO=1THENCO=0:GOTO110
116 GOTO100
117 REM     ----------------------
9999 END
10000 D=PEEK(186):OPEN15,D,15,"I0":N$="ADVENTURE SHELL"
10001 PRINT#15,"S0:"+N$:CLOSE1:SAVEN$,D:END